home *** CD-ROM | disk | FTP | other *** search
/ PC World 2002 March / PCWorld_2002-03_cd.bin / Software / TemaCD / xteq / setup.exe / {app} / plugins / XQ DirShellEx.xpl < prev    next >
Text File  |  2001-01-21  |  2KB  |  78 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="1"
  3. "COUNT"="4"
  4. "UIPATH"="Appearance\Files&Folders\Folders Context Menu"
  5. "NAME"="Folders Context Menu"
  6. "VERSION"="2.23"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="1) Name:"
  9. "TEXT 2"="1) Command:"
  10. "TEXT 3"="2) Name:"
  11. "TEXT 4"="2) Command:"
  12. "DESCRIPTION 1"="This plug-in can be used to add two commands to the context menu that appears if you right-click a folder (directory) in the Explorer."
  13. "DESCRIPTION 2"="First, enter a name for the command (e.g. "View with Explorer") in the field "Name". Then enter the command that should be executed if the item is selected in the field "Command". The name of the current directory can be inserted through "%1" (e.g. explorer.exe "%1")."
  14. "DESCRIPTION 3"="To remove the command again, clear both the "Name" and the "Command" field and press "Apply"."
  15. "DESCRIPTION 4"="An example:"
  16. "DESCRIPTION 5"="1) Name:        View with Explorer"
  17. "DESCRIPTION 6"="1) Command:  explorer.exe "%1""
  18. "AUTHOR"="Xteq Systems"
  19. "CONTACTURL"="http://www.xteq.com"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"=" "
  22.  
  23.  
  24. sPath1="HKCR\Directory\Shell\XQXSETCMD1\"
  25. sPath2="HKCR\Directory\Shell\XQXSETCMD2\"
  26. sCMD="Command\@"
  27. Sub Plugin_Initialize
  28.  s=RegReadValue(sPath1 & sCMD)
  29.  if len(s)>0 then
  30.   s=RegReadValue(sPath1 & "@")
  31.   SetUIElement 1,s
  32.  
  33.   s=RegReadValue(sPath1 & sCMD)
  34.   SetUIElement 2,s
  35.  end if
  36.  
  37.  s=RegReadValue(sPath2 & sCMD)
  38.  if len(s)>0 then
  39.   s=RegReadValue(sPath2 & "@")
  40.   SetUIElement 3,s
  41.  
  42.   s=RegReadValue(sPath2 & sCMD)
  43.   SetUIElement 4,s
  44.  end if
  45. End Sub
  46.  
  47. Sub Plugin_CheckData(ElementIndex)
  48. End Sub
  49.  
  50. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  51.  s1=GetUIElement(1)
  52.  s2=GetUIElement(2)
  53.  if len(s1)>0 or len(s2)>0 then
  54.   Call RegWriteValue(sPath1 & sCMD,s2,1)
  55.   Call RegWriteValue(sPath1 & "@",s1,1)
  56.  else
  57.   if IsEmpty(RegReadValue(sPath1 & sCMD))=false then
  58.    Call RegDeletePath(sPath1 & "Command")
  59.    Call RegDeletePath(sPath1)
  60.   end if
  61.  end if
  62.  
  63.  s1=GetUIElement(3)
  64.  s2=GetUIElement(4)
  65.  if len(s1)>0 or len(s2)>0 then
  66.   Call RegWriteValue(sPath2 & sCMD,s2,1)
  67.   Call RegWriteValue(sPath2 & "@",s1,1)
  68.  else
  69.   if IsEmpty(RegReadValue(sPath2 & sCMD))=false then
  70.    Call RegDeletePath(sPath2 & "Command")
  71.    Call RegDeletePath(sPath2)
  72.   end if
  73.  end if
  74. End Sub
  75.  
  76. Sub Plugin_Terminate 
  77. End Sub
  78.